home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_121_(06-1985).d64 / char assassin-vi (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  26 lines
  1. 10 D=22:F=30720:G=1:H=32:DIMA%(39):FORA=1TO10:READC%(A),S%(A):NEXT:A$="[144]"
  2. 20 DATA28,116,30,111,31,167,144,170,144,183,156,184,156,188,158,190,159,180,31,181
  3. 30 F1=36875:F2=36877:K=250:L=2:POKE36878,15
  4. 50 FORA=1TO22:A$=A$+CHR$(C%(INT(RND(1)*10)+1))+CHR$(S%(INT(RND(1)*10)+1))
  5. 60 NEXT:POKE36879,30:PRINT"[147]      CHARACTER":PRINT"    ASSASSINATION"
  6. 70 PRINT"ENTER SPEED (0-9)":PRINT"   9 IS THE FASTEST":POKE198,0
  7. 80 GETB$:IFB$<"0"ORB$>"9"THEN80
  8. 90 S=28-3*VAL(B$):PRINT"[147]"SPC(7)"SCORE[146] 0"
  9. 95 FORA=8164TO8185:POKEA,160:POKEA+F,6:NEXT
  10. 100 FOR A=1TO20:PRINT:NEXT:PRINTA$;
  11. 110 FL=0:FORA=7724TO7745:POKE649,1:SS=25:IFA%(A-7724)=0THEN170
  12. 120 NEXTA:POKE198,0:IFFLTHEN110
  13. 130 PRINT"[146]"SPC(7)"GAME OVER":PRINT"   PLAY AGAIN? (Y/N)"
  14. 140 GETA$:IFA$="Y"THENPRINTSPC(9)"[144]OK":RUN
  15. 150 IFA$="N"THENPOKE828,0:SYS828
  16. 160 GOTO140
  17. 170 FL=1:R1=RND(1):R2=(-(R1<.5)*(RND(1)*9+48))+(-(R1>=.5)*(RND(1)*26+1))
  18. 180 R$=CHR$(R2-(R2<30)*64):C=A+418:FORB=ATOCSTEPD:POKEF1,K-L*SS
  19. 190 SS=SS-1:GETA$:IFA$<>""THENPOKE649,0:IFA$=R$THEN220
  20. 200 POKEB-D,H:POKEB,R2:POKEB+F,.
  21. 210 FORTD=GTOS:NEXTTD:NEXTB:Q=1:GOSUB230:POKEB-D,H:A%(A-7724)=1:NEXTA:GOTO110
  22. 220 Q=0:GOSUB230:POKEB-D,H:SC=SC+SS:PRINT"[146]"SPC(12)SC:NEXTA:GOTO110
  23. 230 POKEF1,0:Z=200:POKEB-D+F,2:FORT=1TO20
  24. 240 POKEF2,Z:POKE36864,5+(Q=1):POKEB-D,42-4*(PEEK(B-D)=42)
  25. 250 Z=Z-(Q=0)*2:POKE36864,5:NEXT:POKEF2,0:RETURN
  26.